home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Bavarian / Bavarian #056 (19xx)(APS Electronic).zip / Bavarian #056 (19xx)(APS Electronic).adf / brick.inp < prev    next >
Text File  |  1987-08-19  |  2KB  |  85 lines
  1. /************************************************************************
  2.  *
  3.  * First attempt at a new format input file for RAY
  4.  *
  5.  *    v1.0    DBW    870412
  6.  *
  7.  ***********************************************************************/
  8.  
  9. message "Creating macros to use"
  10.  
  11. macros:
  12.     import    "stdinp"
  13.  
  14. message "Setting the global parameters"
  15.  
  16. parameters:
  17.     StdView
  18.     look from 10 50 110 at 0 0 0 with up of 0 1 0
  19.     scan from 0 to 400 rows 400 columns 312 mode 0 bpp 4
  20.     scan from 0 to 80 rows 80 columns 80 mode 1 bpp 4
  21.     set background to 0.2 0.7 1.0
  22.  
  23. message "Defining textures"
  24.  
  25. textures:
  26.     StdTextures
  27.  
  28.     iff
  29.         size     60  60
  30.         edge    -30 -30
  31.         filename    "brick.ilbm"
  32.  
  33. message "Defining lights"
  34.  
  35. define lights:
  36.     directional color of 1 1 1 from 1 .6 .3
  37.     directional color of .5 .5 .5 from -1 .6 .3
  38.  
  39. message "Defining attributes to be used by objects"
  40.  
  41. define attributes:
  42.     StdAtts
  43.  
  44. message "Defining the objects to display"
  45.  
  46. define objects:
  47.  
  48.     quad brick
  49.     scale        100 -22 1
  50.     translate   -50 11 50
  51.     quad brick
  52.     scale        100 -22 1
  53.     roty        -90
  54.     translate   -50 11 50
  55.     quad brick
  56.     scale        100 -22 1
  57.     roty        -90
  58.     translate   50 11 50
  59.     quad brick
  60.     scale        100 100 1
  61.     rotx        90
  62.     translate   -50 11 50
  63.     sphere tile
  64.     translate   0 11 0
  65.     radius        1 35
  66.     sphere brick
  67.     translate   -50 11 -50
  68.     radius        1 10
  69.     sphere brick
  70.     translate   50 11 50
  71.     radius        1 10
  72.     sphere brick
  73.     translate   50 11 -50
  74.     radius        1 10
  75.     sphere brick
  76.     translate   -50 11 50
  77.     radius        1 10
  78.     ring waves
  79.     rotx         -90
  80.     translate   0 -11 0
  81.     radius        0 0
  82.     radius        1 100
  83.  
  84. message "Input completed, ready to process"
  85.